﻿Imports DAO
Imports DTO
Public Class LopHocBUS

    ''' <summary>
    ''' Lấy danh sách tất cả các lớp học
    ''' </summary>
    Public Function LayDSLopHoc() As DataTable
        Dim dt As New DataTable
        Dim lophocDAO As New LopHocDAO()
        dt = lophocDAO.LayDSLopHoc()
        Return dt
    End Function

    ''' <summary>
    ''' Lấy danh sách lớp học của 1 khối
    ''' </summary>
    ''' <param name="makhoi">Lấy danh sách lớp học của 1 khối. VD: K10, K11, K12</param>
    Public Function LayDSLopHoc(ByVal makhoi As String) As DataTable
        Dim dt As New DataTable
        Dim lophocDAO As New LopHocDAO()
        dt = lophocDAO.LayDSLopHoc(makhoi)
        Return dt
    End Function

    ''' <summary>
    ''' Cập nhật tên lớp
    ''' </summary>
    Public Function CapNhatLop(ByVal LopDTO As LopHocDTO) As DataTable
        Dim LopDAO As New LopHocDAO
        Dim dt As New DataTable
        dt = LopDAO.CapNhat(LopDTO)
        Return dt
    End Function

    ''' <summary>
    ''' Xóa 1 lớp
    ''' </summary>
    Public Sub Xoa(ByVal LopDTO As LopHocDTO)
        Dim lopDAO As New LopHocDAO
        lopDAO.XoaLopHoc(LopDTO)
    End Sub

    ''' <summary>
    ''' Thêm một ràng buộc lớp học
    ''' </summary>
    Public Sub ThemRBLH(ByVal dto As LopHocDTO)
        Dim dao As New LopHocDAO
        dao.ThemRBLH(dto)
    End Sub

    ''' <summary>
    ''' Thêm một lớp
    ''' </summary>
    Public Sub Them(ByVal LopHocdto As LopHocDTO)
        Dim lopdao As New LopHocDAO
        lopdao.ThemLop(LopHocdto)
    End Sub


    ''' <summary>
    ''' Hiển thị thông tin lịch rảnh của lớp học
    ''' </summary>
    Public Function LayLichRanh(ByVal dto As LopHocDTO) As DataTable
        Dim dt As New DataTable
        Dim dao As New LopHocDAO
        dt = dao.LayLichRanh(dto)
        Return dt
    End Function

    ''' <summary>
    ''' Cập nhật lịch rảnh cho một lớp học
    ''' </summary>
    ''' <param name="dto">Mã lớp học</param>
    ''' <param name="thu">Thứ</param>
    ''' <param name="tiet">Tiết học</param>
    ''' <param name="trangthai">Trạng thái</param>
    Public Sub CapNhatLichRanh(ByVal dto As LopHocDTO, ByVal thu As Byte, ByVal tiet As Byte, ByVal trangthai As Byte)
        Dim dao As New LopHocDAO
        dao.CapNhatLichRanh(dto, thu, tiet, trangthai)
    End Sub

    ''' <summary>
    ''' Phát sinh mã lớp học khi tạo lớp học mới
    ''' </summary>
    Public Function TaoMaLopHoc() As String
        Dim dao As New LopHocDAO
        Return dao.TaoMaLopHoc()
    End Function


    ''' <summary>
    ''' Xóa tất cả thông tin về lịch rảnh của một lớp học
    ''' </summary>
    Public Sub XoaRBLH(ByVal dto As LopHocDTO)
        Dim dao As New LopHocDAO
        dao.XoaRBLH(dto)
    End Sub

End Class
